(ange-ftp-completion-hook-function): Use new inhibit vars.

diff --git a/lisp/files.el b/lisp/files.el
index 1bba1ef7daeee72bc93d2a6fe7bbc12b1744daed..b3654ec3656ba6a524983461f38325177e7f06e0 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -244,7 +244,11 @@ and ignores this variable.")
 (defun ange-ftp-completion-hook-function (op &rest args)
   (if (memq op '(file-name-completion file-name-all-completions))
       (apply 'ange-ftp-hook-function op args)
-    (let (file-name-handler-alist)
+    (let ((inhibit-file-name-handlers
+          (cons 'ange-ftp-completion-hook-function
+                (and (eq inhibit-file-name-operation op)
+                     inhibit-file-name-handlers)))
+         (inhibit-file-name-operation op))
       (apply op args))))
 \f
 (defun pwd ()